home *** CD-ROM | disk | FTP | other *** search
/ Sky at Night 2007 June / SAN CD 6-2007 CD-ROM 25.iso / pc / Software / Aberrator 3.0 / Install Aberrator 3.0.exe / Install Aberrator 3.0.dxr / 00004_MUI-GUI- confirmInstallDialog.ls < prev    next >
Encoding:
Text File  |  2007-04-19  |  1.6 KB  |  36 lines

  1. on confirmInstallDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  2.   if the platform contains "mac" then
  3.     iconLi = [#mem: member("muiLogo_mac", "Internal")]
  4.   else
  5.     iconLi = [#mem: member("muiLogo_pc", "Internal")]
  6.   end if
  7.   NameLi = [#i1, #d1, #B1, #S1, #V1]
  8.   EnabLi = [#i1: 1, #d1: 1, #B1: 1, #S1: 1, #V1: 1]
  9.   BtnsLi = [#d1: "OK", #B1: "Cancel"]
  10.   if StatLi = VOID then
  11.     StatLi = [#S1: "This program will install the selected software on your computer"]
  12.   end if
  13.   EditLi = [:]
  14.   attrLi = []
  15.   valuLi = [:]
  16.   grupLi = [:]
  17.   return getconfirmInstallDialogDialog(iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi)
  18. end
  19.  
  20. on getconfirmInstallDialogDialog iconLi, NameLi, EnabLi, BtnsLi, StatLi, EditLi, attrLi, valuLi, grupLi
  21.   winProps = [#type: #normal, #mode: #pixel, #closeBox: 0, #callback: "muiCallbackStandard", #modal: 1]
  22.   titleBar = "Confirm Software Installation"
  23.   inscription = getMUIGUIDlogText(BtnsLi, StatLi, EditLi)
  24.   txtLi = [#titleBar: titleBar, #inscription: inscription]
  25.   if not listp(attrLi) then
  26.     attrLi = [:]
  27.   end if
  28.   if not listp(valuLi) then
  29.     valuLi = [:]
  30.   end if
  31.   ElemLi = [#i, #d, #b, #s, #V]
  32.   xyLi = [#PositionX: #z, #PositionY: #z, #BreiteF: 480, #HoeheF: 90, #xListe: [0, 280, 380, 120, 110], #yListe: [0, 60, 60, 10, 0], #bListe: [getMuiIconSize(iconLi, 1, #x), 91, 91, 350, 3], #hListe: [getMuiIconSize(iconLi, 1, #y), 20, 20, 35, 90], #aListe: [#left, #center, #center, #left, #left], #pListe: [0, 0, 0, #normal, 0]]
  33.   answer = displayMUIDialog(winProps, iconLi, NameLi, EnabLi, ElemLi, xyLi, txtLi, attrLi, valuLi, grupLi)
  34.   return answer
  35. end
  36.